home *** CD-ROM | disk | FTP | other *** search
- ; Gate2Freedom
- ;Skrypt instalacyjny na dysk twardy
- ;Autor: Krzysztof Dura / Serio-Comic.
-
- (complete 0)
-
- (message "\n\n\n\n\n\nInstalacja gry \"Gate2Freedom\".\n"
- "Wymaga 1,8 MB wolnego miejca na dysku twardym.")
-
- (set destdir
- (askdir
- (prompt "Wybierz katalog, gdzie mam zainstalowaê \"Gate2Freedom\".")
- (help @askdir-help)
- (default @default-dest)
- )
- )
-
- (set @default-dest destdir)
-
- (makedir (tackon destdir "level1"))
- (makedir (tackon destdir "level2"))
- (makedir (tackon destdir "level3"))
- (makedir (tackon destdir "endseq"))
- (makedir (tackon destdir "others"))
-
- (complete 10)
-
- (working "Instalowanie \"Gate2Freedom\"...")
-
- (copyfiles
- (source "Gate2Freedom_dysk2:level2/level2.01")
- (dest (tackon destdir "level2"))
- (help @copyfiles-help)
- )
-
- (complete 20)
-
- (copyfiles
- (source "Gate2Freedom_dysk2:level3/")
- (dest (tackon destdir "level3"))
- (help @copyfiles-help)
- (choices
- "level3"
- "level3.01"
- "level3.02"
- "level3.03"
- )
- )
-
- (complete 40)
-
- (askdisk
- (prompt "\n\n\n\n\n\nWîóû \"Gate2Freedom_dysk1:\".")
- (help @askdisk-help)
- (dest "Gate2Freedom_dysk1")
- )
-
- (complete 45)
-
- (copyfiles
- (source "Gate2Freedom_dysk1:level1/")
- (dest (tackon destdir "level1"))
- (help @copyfiles-help)
- (choices
- "level1"
- "level1.01"
- "level1.02"
- "level1.03"
- "level1.04"
- )
- )
-
- (complete 55)
-
- (copyfiles
- (source "Gate2Freedom_dysk1:level2/")
- (dest (tackon destdir "level2"))
- (help @copyfiles-help)
- (choices
- "level2"
- "level2.02"
- "level2.03"
- )
- )
-
- (complete 60)
-
- (copyfiles
- (source "Gate2Freedom_dysk1:others/")
- (dest (tackon destdir "others"))
- (help @copyfiles-help)
- (choices
- "scintro"
- "menu"
- "menu.01"
- "miragelogo"
- )
- )
-
- (complete 65)
-
- (copyfiles
- (source "Gate2Freedom_dysk1:endseq/endseq")
- (dest (tackon destdir "endseq"))
- (help @copyfiles-help)
- )
-
- (complete 70)
-
- (copyfiles
- (source "Gate2Freedom_dysk1:")
- (dest destdir)
- (help @copyfiles-help)
- (choices
- "Gate2Freedom.exe"
- "Gate2Freedom.info"
- )
- )
-
- (complete 75)
-
- (set libsdir
- (askdir
- (prompt "Wskaû katalog, gdzie umieôciê bibliotekë\n\"serio-comic.library\".")
- (help @askdir-help)
- (default "LIBS:")
- )
- )
-
- (complete 80)
-
- (copylib
- (source "Gate2Freedom_dysk1:libs/serio-comic.library")
- (dest libsdir)
- (help @copylib-help)
- )
-
- (complete 90)
-
- (textfile
- (dest
- (tackon destdir "Gate2Freedom")
- )
- (prompt "Tworzenie skryptu uruchamiajâcego grë...")
- (append "assign Gate2Freedom_dysk1: " destdir "\n"
- "assign Gate2Freedom_dysk2: " destdir "\n"
- "Gate2Freedom_dysk1:Gate2Freedom.exe\n")
- )
-
- (complete 100)
-
- (message "\n\n\n\n\nGra \"Gate2Freedom\" zostaîa zainstalowana.\n"
- "Ûyczymy miîej zabawy.\n\n"
- "Serio-Comic. (1995)")
-
- (exit)
-
-